0 REM--AHOY--MAR ISSUE--RUPERT REPORT---PROG PAGE 19
5 REM RUPERT REPORT
10 REM LISTING 1 - LOGIC1
20 PRINT CHR$(147) :REM CLEAR SCREEN
30 TRUE=-1:FALSE=0
35 REM==================================
40 REM >> IF  A$ , OR IF B$ AND C$,
50 REM >> THEN T$
60 REM >> OTHERWISE F$
65 REM==================================
70 A$="IT IS RAINING"
80 B$="IT IS SUNNY"
90 C$="THE TEMP. IS ABOVE 100"
100 T$="WE WILL STAY INSIDE"
110 F$="WE WILL GO OUTSIDE"
115 PRINT"IF "A$" OR IF "B$"  AND "C$",THEN "T$
120 PRINT:PRINT"--RESPOND T OR F--"
130 PRINTA$;:INPUT A1$
140 PRINTB$;:INPUT B1$
150 PRINTC$;:INPUT C1$
160 A=TRUE:B=TRUE:C=TRUE
170 IF A1$="F" THEN A=FALSE
180 IF B1$="F" THEN B=FALSE
190 IF C1$="F" THEN C=FALSE
200 D$=F$
210 IF A OR (B AND C) THEN D$=T$
220 PRINT D$
230 PRINT:PRINT"(PRESS ANY KEY TO CONTINUE)"
240 GET Z$:IF Z$=""THEN 240
250 GOTO 120